timevis(df2)
#Create timeline using vistime 
df3 <-  data.frame(event = Title, start = Date, group = Source)

vistime(df3, title = "Washington State COVID-19 Response Timeline",  optimize_y = F, show_labels = F)